400 POKE53280,1:POKE53281,1:PRINT"[147]"
500 PRINT"";TAB(14);"[144] DICE MASTER "
510 PRINT"";TAB(12);" BY JIM LOCKRIDGE"
600 FORT=1TO1000:NEXTT
700 CLR
800 INPUT"[147]HOW MANY SIDES";A:IFA<3ORA>200THEN800
900 INPUT"HOW MANY ROLLS";B:IFB>80ORB<1THEN900
1000 PRINT"[144]"
1100 FORT=1TOB
1200 RDR=INT(A*RND(1))+1
1300 PRINTRDR,:SUM=SUM+RDR:NEXT
1400 PRINT"";TAB(25);" TOTAL ";SUM
1450 PRINT"";TAB(25);"[129] AVG.= ";INT(SUM/B)
1500 PRINT"";TAB(9);"[159] ROLL AGAIN? Y/N [146]"
1600 GETRA$
1700 IFRA$<>"Y"ANDRA$<>"N"THEN1600
1800 IFRA$="Y"THEN700
1900 :
63000 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63010 POKE631,13:POKE632,13:POKE198,2:END